#|___________________________________________________________________ 
 | 
 | ViSta - The Visual Statistics System
 | Copyright (c) 1991-2001 by Forrest W. Young
 | For further information contact the author 
 |
 | statinit.lsp.
 |
 | This file loads the ViSta GUI on top of the 
 | already running ViSta-XLispStat workspace. 
 |
 | If in xlisponly mode, it does not load the GUI.
 |___________________________________________________________________ 
 |# 


(setf *statinit-verbose* nil)

(when *statinit-verbose* 
      (showmainwindow)
      (listener)
      (print "ENTERING STATINIT")
      )

(let ((*prefs-dir-name* (strcat (get-working-directory) "\\prefs\\")) 
      (sodoit (equal (string-downcase 
              	 (msw-get-profile-string 
                	"ViSta" "XLispOnly" (strcat (get-working-directory) "\\wxls32.ini")))
              "yes")))
  (when *statinit-verbose* (FORMAT T "XLISP-ONLY MODES ~A~%" (CHECK-XLISPONLY)))
        (if sodoit 
            (load-xlisp) 
            (load-vista))
  (when *statinit-verbose* (print "EXITING STATINIT")))